home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / clapmt.z / clapmt
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCLLLLAAAAPPPPMMMMTTTT((((3333FFFF))))                                                          CCCCLLLLAAAAPPPPMMMMTTTT((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CLAPMT - rearrange the columns of the M by N matrix X as specified by the
  10.      permutation K(1),K(2),...,K(N) of the integers 1,...,N
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      SUBROUTINE CLAPMT( FORWRD, M, N, X, LDX, K )
  14.  
  15.          LOGICAL        FORWRD
  16.  
  17.          INTEGER        LDX, M, N
  18.  
  19.          INTEGER        K( * )
  20.  
  21.          COMPLEX        X( LDX, * )
  22.  
  23. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  24.      CLAPMT rearranges the columns of the M by N matrix X as specified by the
  25.      permutation K(1),K(2),...,K(N) of the integers 1,...,N.  If FORWRD =
  26.      .TRUE.,  forward permutation:
  27.  
  28.           X(*,K(J)) is moved X(*,J) for J = 1,2,...,N.
  29.  
  30.      If FORWRD = .FALSE., backward permutation:
  31.  
  32.           X(*,J) is moved to X(*,K(J)) for J = 1,2,...,N.
  33.  
  34.  
  35. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  36.      FORWRD  (input) LOGICAL
  37.              = .TRUE., forward permutation = .FALSE., backward permutation
  38.  
  39.      M       (input) INTEGER
  40.              The number of rows of the matrix X. M >= 0.
  41.  
  42.      N       (input) INTEGER
  43.              The number of columns of the matrix X. N >= 0.
  44.  
  45.      X       (input/output) COMPLEX array, dimension (LDX,N)
  46.              On entry, the M by N matrix X.  On exit, X contains the permuted
  47.              matrix X.
  48.  
  49.      LDX     (input) INTEGER
  50.              The leading dimension of the array X, LDX >= MAX(1,M).
  51.  
  52.      K       (input) INTEGER array, dimension (N)
  53.              On entry, K contains the permutation vector.
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.